home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / dspdep.arc / CPP1730.CLP < prev    next >
Encoding:
Text File  |  1991-12-04  |  2.7 KB  |  65 lines
  1.  CPP1730:    PGM        PARM(&FILE &MBR &RCDFMT &INTPGM)
  2.  
  3.              /*         Program - CPP1730  */
  4.              /*         CPP for command DSPDEP  */
  5.              /*         Display data base file references */
  6.  
  7.              DCL        &FILE   *CHAR 20 /* Qualified file/library */
  8.              DCL        &MBR    *CHAR 10 /* Selected member name   */
  9.              DCL        &RCDFMT *CHAR 10 /* Selected record format */
  10.              DCL        &INTPGM *CHAR 20 /* Option interupt program */
  11.  
  12.              DCL        &MSGDTA *CHAR 132 /* Message forwarding */
  13.              DCL        &MSGID  *CHAR 7   /* variables... */
  14.              DCL        &CNT    *DEC  3   /* Msg counter */
  15.              MONMSG     MSGID(CPF0000) EXEC(GOTO RCVMSG)
  16.  
  17.              DLTF       FILE(CPP1730.QTEMP)
  18.              MONMSG     MSGID(CPF0000)
  19.  
  20.              IF         (&MBR *EQ '*FILE') DO
  21.                CHGVAR     VAR(&MBR) VALUE(%SST(&FILE 01 10))
  22.              ENDDO
  23.  
  24.              IF         (&RCDFMT *EQ '  ') DO
  25.                CHGVAR     VAR(&RCDFMT) VALUE('*NONE')
  26.              ENDDO
  27.  
  28.              IF         (&MBR *EQ *NONE *AND &RCDFMT *EQ *NONE) DO
  29.              DSPDBR     FILE(%SST(&FILE 01 10).%SST(&FILE 11 10)) +
  30.                           OUTPUT(*NONE) OUTFILE(CPP1730.QTEMP)
  31.              ENDDO
  32.              ELSE       IF (&RCDFMT *EQ *NONE) DO
  33.                DSPDBR     FILE(%SST(&FILE 01 10).%SST(&FILE 11 10)) +
  34.                             MBR(&MBR) OUTPUT(*NONE) +
  35.                             OUTFILE(CPP1730.QTEMP)
  36.              ENDDO
  37.              ELSE       DO
  38.                DSPDBR     FILE(%SST(&FILE 01 10).%SST(&FILE 11 10)) +
  39.                             RCDFMT(&RCDFMT) OUTPUT(*NONE) +
  40.                              OUTFILE(CPP1730.QTEMP)
  41.              ENDDO
  42.  
  43.              OVRDBF     FILE(QADSPDBR) TOFILE(CPP1730.QTEMP) +
  44.                           LVLCHK(*NO)
  45.  
  46.              CALL       PGM(CPP1731) PARM(&FILE &MBR &RCDFMT &INTPGM)
  47.  
  48.              GOTO       ENDPGM
  49.  
  50.  RCVMSG:     /*         Receive and forward program messages. */
  51.              IF         (&CNT *GT 10) GOTO ENDPGM
  52.              RCVMSG     RMV(*YES) MSGDTA(&MSGDTA) MSGID(&MSGID)
  53.              IF         (&MSGID *EQ ' ')  RETURN
  54.              IF         (%SST(&MSGID 1 2) *EQ 'CP'  +
  55.                      *OR %SST(&MSGID 1 3) *EQ 'MCH')  +
  56.              DO
  57.               IF         (&MSGDTA *EQ ' ') SNDPGMMSG  MSGID(&MSGID) +
  58.                           MSGF(QCPFMSG) TOPGMQ(*PRV) MSGTYPE(*DIAG)
  59.               ELSE       SNDPGMMSG  MSGID(&MSGID) MSGF(QCPFMSG) +
  60.                           MSGDTA(&MSGDTA) TOPGMQ(*PRV) MSGTYPE(*DIAG)
  61.               CHGVAR     VAR(&CNT) VALUE(&CNT + 1)
  62.              ENDDO
  63.  
  64.  ENDPGM:     ENDPGM
  65.